﻿Public Class Persona
  Private m_nome As String = ""
  Public Sub New(ByVal nome As String)
    m_nome = nome
  End Sub
  Public Function leggiNome() As String
    Return m_nome
  End Function
End Class
